#!/usr/bin/perl
#
use strict;
use warnings;
use Tk;

my $mw = new MainWindow();

my $menubar = $mw -> Menu();

my $file_menu = $menubar -> cascade(
#	-title => 'File',
	-label => '~bla',
#	-tearoff => 0,
);

#my $open_command = $file_menu -> command(
#	'command',
#	-label       => 'Open...',
#	-underline   => 0);

#$menubar -> add('cascade',
#	-menu => $file_menu,
#       	-label => 'File',
#	-underline => 0);

$mw -> configure (-menu => $menubar);


$mw -> Text(-height => 20, -width => 80) -> pack(-side => 'bottom');

MainLoop();

